CAAMoonPhases_MeanPhase <-
function(k){
.Call("CAAMoonPhases_MeanPhase", k)
}
